TITLE: 



TYPE: 



NUMBER OF WORDS: 
PURPOSE; 



METHOD OF USE: 



STOP ORDER 


FF 101 


FF 102 


FF 103 


FF lO^ 


FF 105 


FF 106 


FF 107 


FF ION 



SPEED: 



university of nuaois 

DIGITAL COMPUTER 



AUXILIARY 

LIBRARY ROUTIN E X 17 - 287 



Maximum Speed Sexadecimal Input Preparation for Magnetic 

Drum and/or Williams Memory with Punch Error Detection 

Complete program 

250 

This routine contains Library Routine X 15 to punch the 

sexadecimal output tape. This output tape is read in 

immediately and compared with the data on the drum for 

possible punching errors. 

f 

The program is read in and the specification tape is placeA 
in the reader as described in X 15 • After the output tape 
has been punched, the computer stops on OF. Rewind the 
output tape and place it in the reader. Execute a sfrip 
Start (white switch up and down). Errors are indicated 
by FF stops as described in the table. At every FF stop, 
mark the tape, write down the address, and execute a skip 
start. From the information available from the punch, 
the sexadecimal tape may be corrected by reperf oration. 
REASOH PUNCH OUTPUT 



Drum clear incorrect. 

Sexadecimal word error. 

Directive error. 

5th hole punched in sexadecimal word. 

5th hole missing on directive. 

Number of symbolic addresses punched 
incorrectly. 

Specification order incorrect e 

Read in Sum Check error. 



None. 

10 characters. 

k characters. 

None • 

None. 

3 characters. 

5 characters. 

None (hold start 
program tape at string 
of spaces near frojrt). 



The punching time is exactly that as given in X 15* The 
reading time is approximately 0.05 n + 15 seconds where 
n is the number of words punched. 



- 2 - 



ERRORS: 



RESTARTING: 



The errors indicated may "be corrected "by reperf oration. 
Note that no 5th hole characters may be added or deleted 
when reperf orating. To correct a sexadecimal word error, 
locate the 10 characters on the tape by means of the 
previously made nark and the HfCQRRECT indication tb the 
error tape. Replace the INCORRECT characters with the 
CORRECT characters. The number of symbolic addresses 
and the specification order are corrected in a similar 
manner. The directive appears on the sexadecimal tape 
as a 5th hole character followed by 3 sexadecimal characters 
The error tape shows only the sexadecimal part of the 5th 
hole character and the 3 following sexadecimal characters/ 
The 5th hole of the first character must be replaced when 
reperf orating, and no other 5th holes introduced. 
After the output tape has been checked, the drum is still 
undisturbed. A second translation may be performed by 
reading in the program with a hold start placing the tape 
in the reader at the string of spaces. 



DAT E January 25, i960 

WRITTEN B Y Waua«* C.JuXui 

— - - j^U^S 



APIftOVED BY 



ns 



LOCATION 



19 



20 



21 



22 



23 



2k 



ORDER 

00 K 

85 11F 
40 F 
26 F 
00 F 
26 1469N 



NOTES 



BUS 1 



X 17 



r 



D.O.I 



I 



00 


3K 


00 


F 


00 197? 


00 


F 


00 205F 


00 


F 


00 


21^F 


00 


F 


00 


222F 


00 


F 


00 


6f 


00 19K 


71* 4095F 


LL 


4o8tf 


00 


F 


00 


F 


HI 


20F 


L5 


F 


80 


F 


00 


F 


kl 


20F 


L5 


102 3F 


00 


2kK 


81 kF 



/ 



►Record WM on drum. 



S parameters 
sexadecimal word 
error routine 
directive error 
routine 

routine to search 
drum for non-zero word 
routine to fill WM with 
non-zero words 

Routine to print headings 



1-9x2 



■39 



error switch 



constants 



J 



D. 



LOCATIOH 


QBDER 


HOTES EAffg 2 X 17 




40 2F 




1 


25 


LO 238P 




> Check Drum Clear 




40 IF 






26 


L3 IF 




J • 




32 27F 




27 


FF 257F 




FF 101, drum clear 




91 4f 


. 


incorrect 


28 


36 50F 








81 40F 






29 


kO 2F 








L5 147F 




f 


30 


hO 3F 


■ 


i Check input program. 




F5 30F 


■1 




31 


26 S3 
F5 29F 






32 


42 29F 








LO 239F 




J 


33 


32 28F 
L3 102F 






& 


32 36F 




jump if WS start 




L5 7S5 




I modify end tests if 


35 


ho 6S5 


; 


1 BS start. 




L5 15S6 




1 m 


36 


4o l4s6 


i' 






26 37F 


> 




37 


91 4f 




read 1 




36 53F 




out if not directive 


38 


LO 240F 


5 






36 76F 


1 


out if final directive 


39 


L4 240F 


i 






80 12F 


1 
] 


finish tape directive 


ko 


•40 2F 


1 
1 


tape directive in 2. 




L5 5S6 


: 




kl 


4o 3S5 




preset search routine 




F5 4lF 







LOCATION 


ORDER 


SOTBS IfcGE 3 X I? 




42 


26 85 
50 5S5 




TIM non zero word 
on drum. 




43 


JO 241F 
S5 F 




-. 




44 


40 5F 
F5 44F 




correct directive in 3. 




45 


26 S4 
L5 5S5 




coaipsre 




k6 


40 5S6 
F5 46F 




preset 




47 


26 s6 
L5 6s6 




FILL WM 

1 




48 


42 21F 
L5 4S6 




for sum check 
preset compare loop 




49 


42 6lF 










26 yjF 




re-enter loop 




50 


10 4F 
L5 2F 




~\ from 28 
I compose digits 




51 


00 4F 
80 52F 




read. Enter program 




52 


26 29F 
00 F 


i 


/ 




53 


40 2F 
L5 19F 




from 37 


e 


54 


40 IF 
91 4F 




set counter 

read 9 digits, check for 




55 


10 4F 
52 56F 




5th hole error. 




56 


49 20F 
L5 2F 




mark error 




57 


00 4F 
40 2F 




compose digits 




58 


F5 IF 
40 IF 




count 




59 


32 54F 








TT-TT-r- , - - ■ ■ 


M 20F 




1 





LOCATION 


ORDER 


notes mm k x 17) 


60 


32 6lF 




i 




FF 260F 




FF 10^ 5th hole error 


61 


kl 20F 




reset error 




L5 250F 




•» 


62 


kO 3F 
F5 62F 




drum word in 3 


63 


26 S3 
F5 6lF 




compare 


6k 


k2 6lF 




• 

; 




LO 21F 




r 


65 


36 37F 




re-enter loop if more words to compare ^ 




L5 6lF 




here when WM used up 


66 


LO 23F 








36 70F 




jump if at end of WM 


67 


91 ^F 
32 68F 




: 


68 


22 37F 








FF 26lF 




FF 105 5th hole missing on directive 


69 


iM- 22F 




replace 5th hole 




22 37F 




Enter loop 


TO 


91 ^+F 
kO 2F 




from 66 


71 


32 72F 
22 37F 




" 


72 


00 F 
F5 72F 






73 


26 S6 
L5 ^S6 




refill WM 


Ik 


k2 6lF : 

L5 6s6 




reset 


75 


k-2 21F 
22 53F ) 




compute new sum check 


76 


81 kOF 




from 38| here if final 




kO 2F 




directive; sum check in 2 


77 


L3 F 






- ., i 


kO 3F 




.,,,. 



LOCATIQH 



OBDER 



78 


JO F 




F5 78F 


79 


26 S3 




81 12F 


80 


ho 2F 




LO 142F 


8l 


40 IF 




L3 IF 


82 


32 88F 




JO F 


83 


50 242F 




50 83F 


84 


26 S7 




L5 2F 


85 


00 28F 




82 12F 


86 


92 995F 




L5 142F 


87 


00 28F 




82 12F 


88 


FF 262F 




81 20F 


89 


40 2F 




50 196F 


90 


JO 241F 




SO F 


91 


kO IF 




L3 IF 


92 


36 99F 




JO F 


93 


50 242F 




50 93F 


9 4 


26 S7 




L5 2F 


95 


00 20F 




82 20F 



NOTES 



EAGE 5 



^1L 



Waste 



compare 

read symbolic addresses 



compare 
jump if OK 



print heading 



punch error info. 



incorrect number 

of symbolic addresses 

FF 106; 

read transfer order 



compare transfer order 



punch 
error 
info. 



LOCATION 
96 

97 

98 

99 



180 



197 
198 

199 
200 
201 
202 

203 
204 



205 
206 



transfer order 
incorrect 
FF 107 



OKDER I NOTES PAGE 6 

92 987F 
L5 196F 
00 20F 
82 20F 
FF 263F 
26 99F 
OF F 
OF F 

Words 100-139 in X 15 unchanged 

X 15 stop 

Skip start to checker routine 

Words 1^1-196 in X 15 unchanged 



x 17 



OF F 
26 24F 



00 
k2 

16 
LO 

ho 

L3 
32 
50 
50 
26 

L5 
82 
92 

L5 
82 
FF 
23 

00 
k2 

L5 
LO 

ko 



197K 

2L 

2F 

3F 

IF 

IF 

F 

242F 

3L 

S7 

2F 

40F 

967F 

3F 

40F 

258F 

2L 

205K 
2L 
2F 
3F 
IE 



S3 



Link; check sexadecimal 
words in 2 and 3 



Sk 



out if zero 



heading 



FF 102. Sexadecimal 
word error. WS out 

Link; check 
directives in 2 and 3. 



LOCATIOK 
207 

208 

209 

210 

211 

212 

214 
215 
216 
217 
218 
219 
220 
221 



222 



223 



ORDER 

L3 IF 
32 F 
50 2kZF 
50 3L 
26 S7 
L5 2F 
00 2^F 
82 16F 
92 991F 
L5 3F 
00 2^F 
82 16F 
FF 259F 
23 2L 

00 214K 
k2 2L 
26 3L 
F5 3L 
^0 3L 
LO 6L 
32 F 
85 11F 

00 2560F 

kO IF 
L3 IF 
36 1L 
23 2L 
85 11F 
00 12800F 
85 11F 

00 11058F 

00 222K 
k2 8L 
L5 l^L 
LO 3S5 



S5 



BOTES 



out if zero 



heading 



PAGE 7 X 17 



FF 103, Directive error 



Link 



read word 
search drum 
for non-zero 
word. 



End test. 



End test for BS start 



link 



LOCATION 



224 
225 
226 

227 
228 

229 
250 
231 
232 

233 
23^ 
235 
236 

237 

238 

239 

240 



ORDER 



NOTES 



PAGE 8 



32 11L 

lh 13L 
kO 12L 
L5 4L 
k2 6L 

26 5L 
00 250F 
85 11F 

00 2560F 

kO IF 
kQ 250F 
F5 5L 
40 5L 
L3 IF 
32 F 
F5 6L 
42 6L 
LO 12L 
36 5L 
23 8L 

27 2L 
00 F 
00 F 
NO IF 

kO 102 3F 
85 11F 
00 1202 7F 
85 11F 

00 10285F 
00 238K 

00 F 
00 12F 
NO 2F 
L5 195F 
80 F 



X1L 



Form end 
test 

preset WM store 

enter loop 

Fill WM from 250-1022 
or stop when a zero 
word is reached. 

step drum 



exit if zero 
step WM 

out if end of WM 
from 1L 

end. test 



12,800-773 



~\ 



► constants 



LOCATION 


ORDER 


BOTES KAOE 9 X 17 




00 4f 








2*4-1 


00 F 

LL 4095F 

00 242K 


. 


J 




242 


K6 1468F 
10. 258F 




I Code words 

7 to print headings. 


• 


243 


6s 3567F 
KS 1652F 








244 


12 3757F 
9J 665F 








2*4-5 


00 F 
00 8F 

00 6k 




/ 


{ 


6 


K5 F 
42 42L 


S7 


routine to print 
headings 




7 


10 20F 
42 2L 








8 


4l 4F 
L5 F 








9 


40 IF 

50 4f 








10 


L3 IF 
32 F 








11 


L5 IF 
10 5F 








12 


40 IF 
01 IF 








13 


42 9L 
01 10F 








14 


F4 9L 
42 9L 








15 


JO F 
93 F 








16 


If) 4F 
L4 1L 









LOCATION 



IT 
18 



2k6 

248 

2^9 

250 
251 

252 

253 



ORDER 



40 kF 
36 kL 
F5 2L 
22 1L 

00 246K 
8F 3936F 
JJ 1839F 
L7 F 
IA 2F 
kO F 
F5 1L 
42 1L 
LO 7L 
36 1L 
L3 F 
36 100F 
FF 268F 
82 40F 

26 100F 
77 F 

L4 2^7F 

00 196K 

27 248N 



KOTES 



I&GE 10 x 17 



'~Y 



sum check, 






V 



sum check 
routine 



FF ION 



end test 

set DOI 

enter sum check routine. 



